module nome_arq
 use parametros
 contains
 function nome(t)
  implicit none
  character::nome*4
  integer::i,j,k,w,t
  character, dimension(0:1000)::a*4
  w=0
	 do,i=0,9
	  do,j=0,9
	   do,k=0,9
	    a(w)=char(48)//char(i+48)//char(j+48)//char(k+48)
	    w=w+1
	   end do
	  end do
	 end do
	 a(1000)="1000"
  nome=a(t)
 end function nome
end module nome_arq
